home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 August
/
1988-08.d64
/
progpage #4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
992b
|
26 lines
10 poke 784,108:poke 785,122:poke 786,0
20 def fn rs(ln)=usr(ln)+pos(" [184] [163][168][168][198]_[165]_l'[168]")
30 def fn p(x)=usr(x)+pos("[162]d[181]6[133]=[181]7[133]> [169] >[169] [172] +[188]l[178][183] [161][183] '[184][169][133] [149][169] y[168]l")+d
40 poke 53280,0:poke 53281,0:poke 646,1:print chr$(147)
50 v=53248:poke 2040,11:poke v+21,1:poke v,24:poke v+1,53:poke v+39,7
60 print " . . . . . . . . . . . . . .":poke 704,fn p(0)
70 for i=24 to 255 step 8
80 x=fn rs(100+10*(i and 8)):poke 704,fn p(0):poke v,i:poke 1061+i/8,32
90 next
100 data 000,000,000,000,255,000,003,255
110 data 192,015,255,240,031,231,248,063
120 data 227,252,127,255,248,255,255,224
130 data 255,255,128,255,254,000,255,248
140 data 000,255,248,000,255,254,000,127
150 data 255,128,063,255,224,031,255,248
160 data 015,255,240,003,255,192,000,255
170 data 000,000,000,000,000,000,000,-1
180 data 000,000,000,000,255,000,003,255
190 data 192,015,255,240,031,231,248,063
200 data 227,252,127,255,254,255,255,255
210 data 255,255,255,255,255,255,255,248
220 data 000,255,255,255,255,255,255,127
230 data 255,254,063,255,252,031,255,248
240 data 015,255,240,003,255,192,000,255
250 data 000,000,000,000,000,000,000,-1